home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 134 / Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_A.d64 / <<> schluss! <>> (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  64 lines
  1. 90 print"[147]--   zum schluss ein basic-eierkopf   --":poke53280,0:poke53281,0
  2. 95 poke646,6 :print"[163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163]":print:print
  3. 97 print"                 [151][169][168][223][146]    [149][176][195][195][195][195][195][174][205][205][223][151][166][166][166][166][166]"
  4. 98 print"[149][182][176][195][195][195][195][195][178][195][195][195][195][195][174][146][181] [150][213][215] [215][146][201] [149]  [194][207][183][183][183][208][194][181][205][223][223][151][166][166][166][166]"
  5. 99 print"[149][182][194][172]    [194]    [187][194][146][181] [150][202] o [146][203]  [149] [194][180]   [170][194][181][205][205][223][223][151][166][166][166]"
  6. 100 print"[149][182][173][195][195][195][195][195][177][195][195][195][195][195][189][146][181]  [150][223][196][146][169]  [149]  [194][204][175][175][175][186][194][181][205][205][205][223][223][151][166][166]"
  7. 101 print"[149][182][144]       [152][169][183][183][183][183][223][146][149][181][156]  [169][214][223][146]    [149][194][207][183][183][183][208][194][161][205][205][205][205][223][223][151][166]"
  8. 102 print"[149][182][144][155][180][180][180][180][180][165][144] [152]  [213][201]  [144][146][149][181][156][169][213][173]:[189][201][223][146] [149] [194][180]   [170][194][181][205][205][205][205][205][223][223]"
  9. 103 print"[149][182][144][155][165][180][165][180][180][165][144] [152][194] [173][189] [194][146][149][181][156] [194] : [194] [146] [149] [194][180]   [170][194][181][205][205][205][205][205][205] "
  10. 105 print"[149][182][176][195][195][195][178][195][195][152][202][188][188][188][190][203][146][149][181][151][176][163][163][163][163][163][174][146] [144][149] [194][180]   [170][194][161][205][205][205][205][205][205] "
  11. 106 print"[149][182][173][195][195][195][177][195][195][152][187][162][162][162][162][172][146][151][176] [175][175][175][175][175] [174][146][149] [194][180]   [170][194][181][205][205][205][205][205][205] ":poke646,9
  12. 107 print"[149][182][167][163][163][163][163][163][129][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146][149][194][180]   [170][194][181][205][205][205][205][205][205] "
  13. 108 print"                                        ":
  14. 109 print" dumpf starrt er vor sich hin - er hat "
  15. 110 print" kein futter mehr fuer seinen computer "
  16. 111 print" und er weiss nicht, wo man's bekommt!"
  17. 112 print"[150] >[154]er kennt die tiger-disk[146][154] noch nicht![150]<":forz=1to75:
  18. 190 a=53280:forx=0to8:pokea,2:pokea,7:pokea,4:pokea,5:pokea,.:pokea,6   :restore
  19. 192 nextz:
  20. 195 ti$="000002":wait161,1:
  21. 196 print"[147][159]      und  nun  heisst's  wieder:"
  22. 198 :ti$="000002":wait161,1:
  23. 200 print"[147]         [176][195][174][176][195][174][176][195][174][175][175][175][175][176][195][174][176][195][174][176]
  24. 202 [153]"cont      orlenlenexp peekpeek /exp peek(NULL)andandsqrpeek /exp peekpeek /lenlen^ "
  25. 204 [153]"open  orlenlen=(NULL)lenlenlenlen>exp orlenlenexp(NULL)usrusr(NULL)/lenlen^ />lenlenlenlen(NULL)=lenlen^ "
  26. 206 [153]"print or>lenlen><orlenlenlenlen^ -lenlenlen(NULL)andandsqrlenlenlen< orlenlenlenlen^->lenlen>^"
  27. 208 [153]" -lenlenlenlenexp/lenlenlenlenexp /lenlenlenexp  /lenlenlenexp /lenlenlenlenexp/lenlenlenlen<"
  28. 210 [153]"cont peek      absget   winke, winke !   absget      peek"
  29. 215 [153]"clr -^ orlen^orlenlenlenlenlenlenlen^ or^  or^ orlenlenlenlenlenlenlen^orlen^ or<"
  30. 217 [153]"def /< /lenexp/lenlenlenlen=lenlen<cont /exp  /exp def-lenlen=lenlenlenlenexp/lenexp -exp"
  31. 219 [153]"for  /=lenlenlenlenlenlen^ peek  peekcont or^  or^ forpeek  peek orlenlenlenlenlenlen=exp "
  32. 220 [153]"   /=lenlenlenlenlen< /lenlen<clr /exp  /exp -lenlenexp -lenlenlenlenlen=exp"
  33. 221 [153]"clr    /lenlenlen=lenexp orlenlenexpverify lukianclr /lenlen^ /len=lenlenlenexp
  34. 222 print"        [171][195][195][195][177][195][195][174][176][174][176][174][176][174][176][174][176][195][195][177][195][195][195][179]  "
  35. 223 print"[151] [169][205][214][206][223]  [173][195][195][195][195][195][195][189][173][189][173][189][173][189][173][189][173][195][195][195][195][195][195][189]  [151][169][205][214][206][223]"
  36. 224 print"  [213]v[201]                              [151][213]v[201]"
  37. 227 fori=0to23:c2$=c2$+chr$(32)+chr$(157)+chr$(17):nexti:c2$=c2$+chr$(145):
  38. 228 forj=0to30:ifj=0thenpoke781,24:sys59903
  39. 230 printchr$(19);tab(j);c2$:printchr$(19);tab(40-j);c2$
  40. 235 nextj:poke53280,0:poke53281,0
  41. 240 print
  42. 250 ti$="000004":wait161,1
  43. 301 form=54272to54296:pokem,0:next:poke54296,15:poke54277,9:poke54278,128:poke54272,28
  44. 400 poke53280,.:poke53281,.:printchr$(147)
  45. 402 fors=54272to54296:pokes,0:next
  46. 404 poke54296,15
  47. 406 poke54277,10 :poke54278,0
  48. 408 readh,l,dr:print"                  "
  49. 410 ifh<0goto434
  50. 412 poke54287,h:poke54273,l
  51. 414 poke54276,21:print"[147]"
  52. 416 fort=1todr:next
  53. 418 poke54276,20:print"[158] [163][163][163][163][163][183][183][183][183][184][184][163][163][183][183][184][184][205][205][206][158][145][206][145][184][184][183][183][163][163][145][184][184][183][183][183][183][163][163][163][163][163] "
  54. 420 print"[145][145] [163][163][163][163][163][183][183][183][183][184][184][163][163][183][183][184][184][205][158][205][206][206][145][184][184][183][183][163][163][145][184][184][183][183][183][183][163][163][163][163][163]":
  55. 422 forb=0to34:next:pokes,1
  56. 424 goto406
  57. 426 data42,23,35,24,38,45,44,33,26,34,29,41,43,42,33,38,41,500:
  58. 428 data72,30,36,21,37,31,28,31,32,45,32,34,44,33,26,31,34,500
  59. 430 data3 ,255,4 ,254,6 ,6 ,255,1,2000
  60. 432 data-1,-1,-1:
  61. 434 restore:i=i+2:ifi=1thenpoke54296,0
  62. 436 print"[147]                 finis!                 [144]";
  63. 500 ti$="000003":wait161,1:poke53280,14:poke53281,6:poke646,14:sys58253
  64.